home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 22 / Amiga Format AFCD22 (Jan 1998, Issue 106).iso / -readerstuff- / d_keletsekis / tools / fastread / helpdemo.gc < prev    next >
Text File  |  1997-10-03  |  2KB  |  90 lines
  1. G4C
  2.  
  3. winbig -1 -1 300 153  "HelpDemo.gc"
  4. winType 11110001
  5. usetopaz
  6.  
  7. ; ---- Message
  8.  
  9. ctext 20 8 "Switch Help ON and click a button" topaz.font 8 2 0 000
  10. ctext 20 18 "to view the named section of the" topaz.font 8 2 0 000
  11. ctext 20 28 "HelpSystem.txt doc file." topaz.font 8 2 0 000
  12. ctext 20 48 "If Help is OFF, a requester will" topaz.font 8 2 0 000
  13. ctext 20 58 "simulate the usual function of" topaz.font 8 2 0 000
  14. ctext 20 68 "the button." topaz.font 8 2 0 000
  15.  
  16. box 0 0 0 0 out ridge
  17.  
  18. xonLoad 
  19. extract helpdemo.gc guipath fre_path
  20. assign GCHELP: $fre_path
  21. delvar fre_path
  22. guiload gchelp:ViewText.g    ; Load the reader, but don't open it.
  23. helpon = 0                   ; Set help mode OFF
  24. guiopen helpdemo.gc
  25.  
  26. ; -----  The target document is named here ----
  27. docname = GUIS:Docs/User/HelpSystem.txt
  28.  
  29. xonClose
  30. gosub HelpDemo.gc exit
  31.  
  32. ; ----  An On/Off 'Help' CheckBox ----
  33. XCHECKBOX 249 80 26 11 Help helpon 1 0 OFF
  34.  
  35. ; The checkbox above is for switching online help on or off. When help
  36. ; is ON, the buttons below will stop functioning normally and instead
  37. ; fetch the required text from the HelpSystem.txt file.
  38.  
  39. ; ---- The buttons for this demo script ----
  40.  
  41. XBUTTON 25 97 250 12 "Read the Help for FastRead.gc"
  42. offset = "8655 1826"
  43. gosub HelpDemo.gc open
  44.  
  45. ; ** Then the buttons true function goes here... **
  46.  
  47. ezreq "This would be the gadget's\nnormal function." "Ah! I See!" ""
  48.  
  49. XBUTTON 25 115 250 12 "Read the Help for ViewText.g"
  50. offset = "10513 1595"
  51. gosub HelpDemo.gc open
  52.  
  53. ; ** Then the buttons true function goes here... **
  54.  
  55. ezreq "This would be the gadget's\nnormal function." "Ah! I See!" ""
  56.  
  57. ; -------------- The button for the HelpDemo patch -------------------
  58.  
  59. XBUTTON 25 133 250 12 "Read the Help for HelpDemo.gc"
  60. offset = "12141 3952"
  61. gosub HelpDemo.gc open
  62.  
  63. ; ** Then the buttons true function goes here... **
  64.  
  65. ezreq "This would be the gadget's\nnormal function." "Ah! I See!" ""
  66.  
  67. ; ------------------------ Subroutines -------------------------------
  68.  
  69. xroutine exit
  70. assign GCHELP: remove
  71. ifexists file ram:guide.txt
  72.     delete ram:guide.txt
  73. endif
  74. guiquit viewtext.g 
  75. guiquit helpdemo.gc  
  76.  
  77. ; ---------- This is the routine for opening the reader gui...
  78.  
  79. xroutine open
  80. if $helpon = 0
  81.     return
  82. elseif $helpon = 1
  83.     cli 'GUIS:C/WriteNode $docname $offset'    
  84.     guiopen viewtext.g
  85.     guiwindow viewtext.g front
  86.     lvuse viewtext.g 1
  87.     lvchange ram:guide.txt
  88.     stop
  89. endif
  90.